#!/usr/bin/perl

open DATA, "o1000k.ap" or die "can't fnd the damn file";

my $i = 0;
while(<DATA>){
	$i = $i + 1;
}
print "got here $i\n";

close DATA